H e r e   i s   t h e   c o d e   s h o w   h o w   t o   c a l l   d l l ( E x i s t i n g   ' R Y D L L 3 2 . D L L '   i n   t h e   S D K   d i r e c t l y   i n   D e l p h i   
 
 
 
 
 
 f u n c t i o n   R o c k e y ( f u n c :   W O R D ;   h a n d l e :   P W O R D ;   l p 1 , l p 2 :   P D W O R D ;   p 1 , p 2 , p 3 , p 4 :   P W O R D ;   v a r   b u f f e r ) :   W O R D ;   s t d c a l l ;   e x t e r n a l   ' R Y D L L 3 2 . D L L ' 
 
 
 
   
 
 
 
 p r o c e d u r e   T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
   / / R o c k e y :   T R o c k e y ; 
 
   r y H a n d l e :   T H a n d l e ; 
 
   r t :   w o r d ; 
 
   h a n d l e :   w o r d ; 
 
   l p 1 , l p 2 :   d w o r d ; 
 
   p 1 , p 2 , p 3 , p 4 :   w o r d ; 
 
   b u f f e r :   a r r a y   [ 0 . . 1 0 2 4 ]   o f   b y t e ; 
 
 b e g i n 
 
   t r y 
 
   { 
 
     r y H a n d l e : = L o a d L i b r a r y ( ' R Y D L L 3 2 . D L L ' ) ;                                                                                 / /   < - -   n o   p r o b l e m 
 
     i f   r y H a n d l e < > 0   t h e n   b e g i n 
 
       @ R o c k e y : = G e t P r o c A d d r e s s ( r y H a n d l e , ' R o c k e y ' ) ;                                         / /   < - -   n o   p r o b l e m 
 
     } 
 
       p 1 : = $ c 4 4 c ;   p 2 : = $ c 8 f 8 ;   p 3 : = 0 ;   p 4 : = 0 ;                                                                 / /   < - -   t e s t   p a s s w o r d s   ( a c t u a l   p r o g r a m   u s e d   a c t u a l   p a s s w o r d s ) 
 
       h a n d l e : = 0 ;   l p 1 : = 0 ;   l p 2 : = 0 ; 
 
       F i l l C h a r ( b u f f e r , l e n g t h ( b u f f e r ) , 0 ) ; 
 
       r t : = R o c k e y ( 1 , @ h a n d l e , @ l p 1 , @ l p 2 , @ p 1 , @ p 2 , @ p 3 , @ p 4 , b u f f e r ) ;         
 
       i f ( r t = 0 )   t h e n 
 
         M e s s a g e B o x ( f o r m 1 . H a n d l e , ' o k ' , ' o k ' , M B _ O K ) ; 
 
 
 
 
 
 
 
 S u p p o r t @ r o c k e y . c o m . m y 